home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / AlphaLite.6.52 / Tcl / Modes / latexKeys.tcl < prev    next >
Text File  |  1996-08-15  |  4KB  |  115 lines
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexKeys.tcl (called from latex.tcl)
  5. #
  6. # Special LaTeX key bindings (see latexMenu.tcl and latexSmart.tcl for
  7. #                             additional bindings)
  8. #
  9. # abbreviations:  <o> = option, <z> = control, <s> = shift, <c> = command
  10. #
  11. #############################################################################
  12. #
  13. # Author:  Tom Scavo <trscavo@syr.edu>
  14. #
  15. #############################################################################
  16. #############################################################################
  17.  
  18. # Initial binding of LaTeX command keys.
  19. proc bindLaTeXKeys {} {
  20.     
  21.     proc bindKeypadKeys {} {
  22.         # Completely take over the keypad:
  23.         set mods {<> <c> <o> <z> <s> <co> <cz> <cs> <oz> <os> <zs> \
  24.                   <coz> <cos> <ozs> <cozs>}
  25.         foreach mod $mods {
  26.             bind Kpad0 $mod dummyTeX "TeX"
  27.             bind Kpad1 $mod dummyTeX "TeX"
  28.             bind Kpad2 $mod dummyTeX "TeX"
  29.             bind Kpad3 $mod dummyTeX "TeX"
  30.             bind Kpad4 $mod dummyTeX "TeX"
  31.             bind Kpad5 $mod dummyTeX "TeX"
  32.             bind Kpad6 $mod dummyTeX "TeX"
  33.             bind Kpad7 $mod dummyTeX "TeX"
  34.             bind Kpad8 $mod dummyTeX "TeX"
  35.             bind Kpad9 $mod dummyTeX "TeX"
  36.             bind Kpad= $mod dummyTeX "TeX"
  37.             bind Kpad/ $mod dummyTeX "TeX"
  38.             bind Kpad* $mod dummyTeX "TeX"
  39.             bind Kpad- $mod dummyTeX "TeX"
  40.             bind Kpad+ $mod dummyTeX "TeX"
  41.             bind Enter $mod dummyTeX "TeX"
  42.             bind Kpad. $mod dummyTeX "TeX"
  43.         }
  44.         bind Kpad8 prevSubsection "TeX"
  45.         bind Kpad2 nextSubsection "TeX"
  46.         bind Kpad8 <s> prevSubsectionSelect "TeX"
  47.         bind Kpad2 <s> nextSubsectionSelect "TeX"
  48.         bind Kpad8 <c> prevSection "TeX"
  49.         bind Kpad2 <c> nextSection "TeX"
  50.         bind Kpad8 <sc> prevSectionSelect "TeX"
  51.         bind Kpad2 <sc> nextSectionSelect "TeX"
  52.         bind Kpad4 prevCommand "TeX"
  53.         bind Kpad6 nextCommand "TeX"
  54.         bind Kpad4 <s> prevCommandSelect "TeX"
  55.         bind Kpad6 <s> nextCommandSelect "TeX"
  56.         bind Kpad4 <so> prevCommandSelectWithArgs "TeX"
  57.         bind Kpad6 <so> nextCommandSelectWithArgs "TeX"
  58.         bind Kpad4 <c> prevEnvironment "TeX"
  59.         bind Kpad6 <c> nextEnvironment "TeX"
  60.         bind Kpad4 <sc> prevEnvironmentSelect "TeX"
  61.         bind Kpad6 <sc> nextEnvironmentSelect "TeX"
  62.     }
  63.     
  64.     proc bindGreekKeys {func} {
  65.         eval $func    'm'    <z>    prefixChar "TeX"
  66.         eval $func    'a'    <M>    alpha    "TeX"
  67.         eval $func    'b'    <M>    beta    "TeX"
  68.         eval $func    'c'    <M>    chi    "TeX"
  69.         eval $func    'd'    <M>    delta    "TeX"
  70.         eval $func    'd'    <sM>    Delta    "TeX"
  71.         eval $func    'e'    <M>    epsilon    "TeX"
  72.         eval $func    'e'    <zM>    varepsilon    "TeX"
  73.         eval $func    'f'    <M>    phi    "TeX"
  74.         eval $func    'f'    <sM>    Phi    "TeX"
  75.         eval $func    'f'    <zM>    varphi    "TeX"
  76.         eval $func    'g'    <M>    gamma    "TeX"
  77.         eval $func    'g'    <sM>    Gamma    "TeX"
  78.         eval $func    'h'    <M>    eta    "TeX"
  79.         eval $func    'i'    <M>    iota    "TeX"
  80.         eval $func    'k'    <M>    kappa    "TeX"
  81.         eval $func    'l'    <M>    lambda    "TeX"
  82.         eval $func    'l'    <sM>    Lambda    "TeX"
  83.         eval $func    'm'    <M>    mu    "TeX"
  84.         eval $func    'n'    <M>    nu    "TeX"
  85.         eval $func    'o'    <M>    omicron    "TeX"
  86.         eval $func    'p'    <M>    pi    "TeX"
  87.         eval $func    'p'    <sM>    Pi    "TeX"
  88.         eval $func    'p'    <zM>    varpi    "TeX"
  89.         eval $func    'q'    <M>    theta    "TeX"
  90.         eval $func    'q'    <sM>    Theta    "TeX"
  91.         eval $func    'q'    <zM>    vartheta    "TeX"
  92.         eval $func    'r'    <M>    rho    "TeX"
  93.         eval $func    'r'    <zM>    varrho    "TeX"
  94.         eval $func    's'    <M>    sigma    "TeX"
  95.         eval $func    's'    <sM>    Sigma    "TeX"
  96.         eval $func    's'    <zM>    varsigma    "TeX"
  97.         eval $func    't'    <M>    tau    "TeX"
  98.         eval $func    'u'    <M>    upsilon    "TeX"
  99.         eval $func    'u'    <sM>    Upsilon    "TeX"
  100.         eval $func    'v'    <M>    nabla    "TeX"
  101.         eval $func    'w'    <M>    omega    "TeX"
  102.         eval $func    'w'    <sM>    Omega    "TeX"
  103.         eval $func    'x'    <M>    xi    "TeX"
  104.         eval $func    'x'    <sM>    Xi    "TeX"
  105.         eval $func    'y'    <M>    psi    "TeX"
  106.         eval $func    'y'    <sM>    Psi    "TeX"
  107.         eval $func    'z'    <M>    zeta    "TeX"
  108.     }
  109.  
  110.     bindKeypadKeys
  111.     bindGreekKeys "bind"
  112.     
  113. }
  114.  
  115.